﻿
Namespace LightSwitchApplication

    Public Class CCI

        Private Sub CustomerName_Compute(ByRef result As String)
            ' Set result to the desired field value
            result = Me.CustomerInformation.FullName
        End Sub

        Private Sub ExpirationDate_Validate(results As EntityValidationResultsBuilder)
            ' results.AddPropertyError("<Error-Message>")
            If Me.ExpirationDate <= Date.Now Then
                results.AddPropertyError("Expired credit card is not valid")
            End If
        End Sub
    End Class

End Namespace
